home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_88-04_1988_-_de_Side_B.d64
/
sp0256-al2 edit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
90 lines
0 poke808,225:goto10
1 @l:print"[147]";:list100-1000
2 @p:print"[147]";:list4000-4900
10 poke53280,0:poke53281,0
20 print"[147][158] *** sp0256 al2 phonem editor ***
100 [129]i[178]49152[164]49328:[135]a:[151]i,a:[130]
110 [153]"test...on":[158]49152
120 [129]i[178]0[164]800:[130]
130 :
140 [153]"opengeben sie die zahlenfolge ein.":[141]2000
150 [141]3000:[141]4000:[158]49152
1000 [153]"":[137]150
1100 [131] 76, 5, 192, 133, 192, 120, 169, 58, 141, 20
1101 [131] 3, 169, 192, 141, 21, 3, 88, 169, 255, 141
1102 [131] 3, 221, 173, 2, 221, 9, 4, 141, 2, 221
1103 [131] 169, 0, 141, 1, 221, 173, 0, 221, 41, 251
1104 [131] 141, 0, 221, 169, 133, 133, 251, 169, 192, 133
1105 [131] 252, 169, 0, 133, 253, 133, 254, 96, 165, 254
1106 [131] 240, 5, 198, 254, 76, 88, 192, 164, 253, 177
1107 [131] 251, 230, 253, 201, 0, 240, 14, 32, 109, 192
1108 [131] 164, 253, 177, 251, 230, 253, 133, 254, 76, 49
1109 [131] 234, 169, 0, 32, 109, 192, 169, 49, 141, 20
1110 [131] 3, 169, 234, 141, 21, 3, 76, 88, 192, 72
1111 [131] 173, 0, 221, 9, 4, 141, 0, 221, 104, 41
1112 [131] 63, 141, 1, 221, 173, 0, 221, 41, 251, 141
1113 [131] 0, 221, 96, 35, 5, 26, 15, 38, 5, 49
1114 [131] 10, 42, 4, 1, 20, 16, 5, 23, 15, 33
1115 [131] 5, 22, 14, 62, 10, 1, 20, 49, 7, 43
1116 [131] 8, 1, 20, 7, 10, 42, 10, 13, 5, 49
1117 [131] 11, 57, 10, 1, 20, 0, 0
2000 [153]""
2010 [129]i[178]1[164]10:[153]"print........................................";:[130]:[142]
3000 x[178]10:y[178]0
3010 [151]214,x[171]1:[153]:[151]211,y
3020 f[178][194](1024[170]x[172]40[170]y):[151]1024[170]x[172]40[170]y,f [176]128
3030 [161]a$:[139]a$[178]""[167]3030
3035 p[178]1024[170]x[172]40[170]y
3040 [139]a$[178]" "[167]a$[178][196]([171]2)
3043 [139]a$[178]"input"[167][158]49152:e$[178]"sprachspeicher sprechen":[141]5000
3045 [139]a$[178]"dim"[167][141]4040:e$[178]"speicher zeigen":[141]5000:[137]3000
3047 [139]a$[178]"read"[167][153]:[141]2000:e$[178]"feld loeschen":[141]5000:[137]3000
3050 [139]a$[178]""[167][151]p,f:f[178][194](p):[137]3110
3055 [139]a$[178]"let"[167]e$[178]"file abspeichern":[141]5000:[141]6000
3060 [139]a$[178]"cmd"[167][151]p,f:y[178]y[171]1:f[178][194](p):[137]3120
3070 [139]a$[178]""[167][151]p,f:x[178]x[170]1:f[178][194](p):[137]3200
3080 [139]a$[178]"on"[167][151]p,f:x[178]x[171]1:f[178][194](p):[137]3200
3090 [139]a$[178][199](13)[167][151]p,f:[142]
3095 [139]a$[179][177]"0"[167][139][197](a$)[178]0[167]3030
3100 [151]p,[197](a$)[170]48:f[178][194](p)
3110 y[178]y[170]1:[139]y[177]39[167]y[178]y[171]40:x[178]x[170]1
3120 [139]y[179]0[167]y[178]y[170]40:x[178]x[171]1
3122 [137]3200
3125 p[178]1024[170]x[172]40[170]y:f[178][194](p)
3130 [151]p,f [176]128
3140 [137]3030
3200 [139]x[179]10[167]x[178]10
3210 [139]x[177]19[167]x[178]19
3220 [137]3125
4000 z[178][194](49155)[170]256[172][194](49156):e$[178]"feld auswerten":[141]5000
4005 z2[178]z:a$[178]"":[129]i[178]10[172]40[170]1024[164]19[172]40[170]1024
4010 [139][194](i)[177]46[167]a$[178]a$[170][196]([194](i)[171]48):[137]4030
4015 [139]a$[179][177]""[167][139][197](a$)[177]255[167]a$[178]"1"
4020 [139]a$[179][177]""[167][151]z2,([197](a$)[175]63):z2[178]z2[170]1:b$[178]a$:a$[178]""
4025 [139]b$[179][177]""[167][139]([197](b$)[175]63)[178]0[167]i[178]19[172]40[170]1024
4030 [130]:[151]z2,0:[151]z2[170]1,0
4035 :
4040 [153]"":z[178][194](49155)[170]256[172][194](49156)
4060 [141]2000:[153]""
4070 [129]i[178]z[164]z[170]1000:[139][194](i[171]1)[178]0[167][139][194](i)[178]0[167]i[178]z[170]1000
4080 a$[178][196]([194](i)):[139][197](a$)[179]10[167][153]"0";
4085 [153][201](a$,[195](a$)[171]1)".";
4090 [139][194](214)[179]19[167]4120
4100 [139][194](211)[179]79[167]4120
4110 [142]
4120 [130]:[142]
5000 [141]5005:[129]ii[178]0[164][195](e$)[172]70:[130]
5001 e$[178]" "
5005 [153]"";:[129]ii[178]1[164]21[171]([195](e$)[173]2):[153]" ";:[130]
5010 [153]e$:[142]
6000 :
6010 [153]"openname des sprachprogramms:def";:[160]1
6015 [159]1,0:[132]1,a$:[160]1:[153]
6020 [159]1,8,15:[159]3,8,3,"sp-"[170]a$[170]",p,w"
6030 [132]1,a:[139]a[178]63[167]e$[178]"den namen gibt es schon!":[141]5000:[137]6000
6040 [139]a[177]19[167][139]a[179][177]73[167]e$[178]"diskette pruefen!":[141]5000:[137]6000
6050 [152]3,[199](0)[199](192);
6060 [129]i[178]49152[164]([194](49155)[170]256[172][194](49156))[170]400
6070 [152]3,[199]([194](i));:[130]
6080 [160]3:[153]" ":[142]